home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / biz / demo / ArtStudioPro.lha / ArtStudioPro / Rexx / ImageToXiPaintBrush.asrx < prev    next >
Encoding:
Text File  |  1995-06-15  |  550 b   |  31 lines
  1. /*
  2. ** ImageToXiPaintBrush.asrx
  3. **
  4. ** $VER: ImageToXiPaintBrush V1.0.0 (15.06.95)
  5. **
  6. ** (c) by MotionStudios
  7. **        Wildermuthplatz 3
  8. **        28211 Bremen
  9. **        Tel.: 0421/249966
  10. **
  11. */
  12.  
  13. ADDRESS "xipaint"
  14. OPTIONS RESULTS
  15.  
  16. PARSE ARG Path
  17.  
  18. /*
  19. ** Testen ob XiPaint schon gestartet, wenn nicht XiPaint starten.
  20. ** 5 Sekunden warten, bis XiPaint geladen wurde. Falls Zeit nicht reicht
  21. ** kann man beliebig Variieren.
  22. */
  23.  
  24. IF ~SHOW('P','xipaint') THEN
  25. DO
  26.  ADDRESS COMMAND 'run >NIL: <NIL: XiPaint:XiPaint'
  27.  ADDRESS COMMAND Wait 5
  28. END
  29.  
  30. BRUSHLOAD Path
  31.